home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / pascal / paswiz15.zip / ENTERTNR.PAS < prev    next >
Pascal/Delphi Source File  |  1993-02-28  |  2KB  |  38 lines
  1. { The Entertainer }
  2.  
  3. { This is a demonstration of the music support
  4.   provided by the Pascal Wizard's Library }
  5.  
  6.  
  7.  
  8. {$M $2000,0,0 }          { stack size, min heap, max heap (bytes) }
  9. {$D-}                    { debug info off }
  10. {$A-}                    { word alignment off (so use byte alignment) }
  11. {$I-}                    { don't crash on errors }
  12.  
  13.  
  14.  
  15. USES
  16.    Music;
  17.  
  18. BEGIN
  19.    PlayMF('T132L8O4MLDECO3A4BG4DECO2A4BG4DECO1A4BAA-GO2P4B24O3D24GP24P8');
  20.    PlayMF('O2DD+EO3C4O2EO3C4O2EO3C2P8');
  21.    PlayMF('L8O4CDD+ECDE4O3BO4D4C4O1E16GP16O2MSC4MLDD+EO3C4O2EO3C4O2EO3C');
  22.    PlayMF('C2.AGF+AO4CE4DCO3AF24B24O4D24DO1G4A4O2DD+EO3C4O2EO3C4O2EO3CC2P8');
  23.    PlayMF('L8O4CDD+ECDE4O3BO4D4C2P4CDECDE4CDCECDE4CDCECDE4O3BO4D4C4O1G4C');
  24.    PlayMF('L8O3EFF+G4AG4EFF+G4AG4ECO2GABO3CDEDCDO2GO3EFGAGEFG4AG4EFF+G4A');
  25.    PlayMF('G4GAA+MSBB4MLB4AF+DO2B24O3D24G24GO1F4E');
  26.    PlayMF('L8O3EFF+G4AG4EFF+G4AG4ECO2GABO3CDEDCDC2P8O2GF+GO3C4O2AO3C4O2A');
  27.    PlayMF('O3CO2AGO3CEG4ECO2GA4O3C4ED4CC4O1G4C4');
  28.    PlayMF('L8O3AG+A2O4C4D4O2B-AB-O3CD4FEF2A4B-4O2GF+GAB-4O3D4GD4GD4C2F2E');
  29.    PlayMF('G+BO4E4DO3BO4CO3A2B-2AG+A2O4C4D4O2B-AB-O3CD4FEF2A4B-4O2GF+GAB-4');
  30.    PlayMF('O3D4GD4GD4CO1FEDO2B4.O3FAO4C4O3G4CDE');
  31.    PlayMF('L8O3F4P4O4F4P4O3C4O2AO3C4O2AO3CO2AGO3CEG4ECO2GA4O3C4ED4CC2O1C24');
  32.    PlayMF('O3E24O4C24CP4');
  33.    PlayMF('L8MLO3F4EF4EF4P8O2AO3DO2AO3CDCO2AO3G4F+G4F+G4P8CECDEDCO4D4C+D4C+');
  34.    PlayMF('D4P8O3FAFGAGFO4MSCCMLC2O3A4G4O2MSGGG4G4O3F4EF4EF4P8O2AO3DO2AO3C');
  35.    PlayMF('DCO2AO3G4F+G4F+G4P8CECDEDCO2AG+AO3G4F4CED+EA4O4CO3GEMSC4C4MLED4');
  36.    PlayMF('MSCC4O1GC24O2C24O3E24G24O4MLC24C24C4');
  37. END.
  38.